home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_3.zip / FILES11.EXE / HEPXX.CHK < prev    next >
Text File  |  1994-08-22  |  10KB  |  722 lines
  1. before record
  2.   type "diagnosis @diagnosis"  10 10
  3.   end
  4. ID
  5.   NoEnter
  6.   KEY
  7. END
  8.  
  9. JAUNDICED
  10.   Comment Legal
  11.     1 YES
  12.     2 NO
  13.     9 UNKNOWN
  14.   END
  15.   IF JAUNDICED = "1"
  16.   THEN
  17.     TYPE "Y" +2 +0 31
  18.   ELSE
  19.     IF JAUNDICED = "2"
  20.     THEN
  21.       TYPE "N" +2 +0 31
  22.     ELSE
  23.       IF JAUNDICED = "9"
  24.       THEN
  25.         TYPE "U" +2 +0 31
  26.       ENDIF
  27.     ENDIF
  28.   ENDIF
  29. END
  30.  
  31. HOSPFORHEP
  32.   Comment Legal
  33.     1 YES
  34.     2 NO
  35.     9 UNKNOWN
  36.   END
  37.   IF HOSPFORHEP = "1"
  38.   THEN
  39.     TYPE "Y" +2 +0 31
  40.   ELSE
  41.     IF HOSPFORHEP = "2"
  42.     THEN
  43.       TYPE "N" +2 +0 31
  44.     ELSE
  45.       IF HOSPFORHEP = "9"
  46.       THEN
  47.         TYPE "U" +2 +0 31
  48.       ENDIF
  49.     ENDIF
  50.   ENDIF
  51.   GOTO DEATH
  52. END
  53.  
  54. IGMHAV
  55.   Comment Legal
  56.     1 POS
  57.     2 NEG
  58.     9 "NOT TESTED"
  59.   END
  60.   IF IGMHAV = "1"
  61.   THEN
  62.     TYPE "P" +2 +0 31
  63.   ELSE
  64.     IF IGMHAV = "2"
  65.     THEN
  66.       TYPE "N" +2 +0 31
  67.     ELSE
  68.       IF IGMHAV = "9"
  69.       THEN
  70.         TYPE "NT" +2 +0 31
  71.       ENDIF
  72.     ENDIF
  73.   ENDIF
  74. END
  75.  
  76. HBSAG
  77.   Comment Legal
  78.     1 POS
  79.     2 NEG
  80.     9 "NOT TESTED"
  81.   END
  82.   IF HBSAG = "1"
  83.   THEN
  84.     TYPE "P" +2 +0 31
  85.   ELSE
  86.     IF HBSAG = "2"
  87.     THEN
  88.       TYPE "N" +2 +0 31
  89.     ELSE
  90.       IF HBSAG = "9"
  91.       THEN
  92.         TYPE "NT" +2 +0 31
  93.       ENDIF
  94.     ENDIF
  95.   ENDIF
  96.   GOTO IGMHBC
  97. END
  98.  
  99. DEATH
  100.   Comment Legal
  101.     1 YES
  102.     2 NO
  103.     9 UNKNOWN
  104.   END
  105.   IF DEATH = "1"
  106.   THEN
  107.     TYPE "Y" +2 +0 31
  108.   ELSE
  109.     IF DEATH = "2"
  110.     THEN
  111.       TYPE "N" +2 +0 31
  112.     ELSE
  113.       IF DEATH = "9"
  114.       THEN
  115.         TYPE "U" +2 +0 31
  116.       ENDIF
  117.     ENDIF
  118.   ENDIF
  119.   GOTO IGMHAV
  120. END
  121.  
  122. IGMHBC
  123.   Comment Legal
  124.     1 POS
  125.     2 NEG
  126.     9 "NOT TESTED"
  127.   END
  128.   IF IGMHBC = "1"
  129.   THEN
  130.     TYPE "P" +2 +0 31
  131.   ELSE
  132.     IF IGMHBC = "2"
  133.     THEN
  134.       TYPE "N" +2 +0 31
  135.     ELSE
  136.       IF IGMHBC = "9"
  137.       THEN
  138.         TYPE "NT" +2 +0 31
  139.       ENDIF
  140.     ENDIF
  141.   ENDIF
  142. END
  143.  
  144. ANTIHDV
  145.   Comment Legal
  146.     1 POS
  147.     2 NEG
  148.     9 "NOT TESTED"
  149.   END
  150.   IF ANTIHDV = "1"
  151.   THEN
  152.     TYPE "P" +2 +0 31
  153.   ELSE
  154.     IF ANTIHDV = "2"
  155.     THEN
  156.       TYPE "N" +2 +0 31
  157.     ELSE
  158.       IF ANTIHDV = "9"
  159.       THEN
  160.         TYPE "NT" +2 +0 31
  161.       ENDIF
  162.     ENDIF
  163.   ENDIF
  164. END
  165.  
  166. DAYCARE1
  167.   Comment Legal
  168.     1 YES
  169.     2 NO
  170.     9 UNKNOWN
  171.   END
  172.   IF DAYCARE1 = "1"
  173.   THEN
  174.     TYPE "Y" +2 +0 31
  175.   ELSE
  176.     IF DAYCARE1 = "2"
  177.     THEN
  178.       TYPE "N" +2 +0 31
  179.     ELSE
  180.       IF DAYCARE1 = "9"
  181.       THEN
  182.         TYPE "U" +2 +0 31
  183.       ENDIF
  184.     ENDIF
  185.   ENDIF
  186. END
  187.  
  188. DAYCARE2
  189.   Comment Legal
  190.     1 YES
  191.     2 NO
  192.     9 UNKNOWN
  193.   END
  194.   IF DAYCARE2 = "1"
  195.   THEN
  196.     TYPE "Y" +2 +0 31
  197.   ELSE
  198.     IF DAYCARE2 = "2"
  199.     THEN
  200.       TYPE "N" +2 +0 31
  201.     ELSE
  202.       IF DAYCARE2 = "9"
  203.       THEN
  204.         TYPE "U" +2 +0 31
  205.       ENDIF
  206.     ENDIF
  207.   ENDIF
  208. END
  209.  
  210. CONTACTA
  211.   Comment Legal
  212.     1 YES
  213.     2 NO
  214.     9 UNKNOWN
  215.   END
  216.   Jumps
  217.     1 ATYPE
  218.     2 HANDLER
  219.     9 HANDLER
  220.   END
  221.   IF CONTACTA = "1"
  222.   THEN
  223.     TYPE "Y" +2 +0 31
  224.   ELSE
  225.     IF CONTACTA = "2"
  226.     THEN
  227.       TYPE "N" +2 +0 31
  228.     ELSE
  229.       IF CONTACTA = "9"
  230.       THEN
  231.         TYPE "U" +2 +0 31
  232.       ENDIF
  233.     ENDIF
  234.   ENDIF
  235. END
  236.  
  237. ATYPE
  238.   Comment Legal
  239.     1 SEXUAL
  240.     2 HOUSEHOLD
  241.     3 OTHER
  242.     9 UNKNOWN
  243.   END
  244.   IF CONTACTA = 2 OR CONTACTA = 9 AND ATYPE <> .
  245.   THEN
  246.     HELP "ERROR: Unless Hep A contact is 1 'YES' then \nType of contact 'ATYPE' should be blank\nPress ESC to continue" 30 13
  247.     clear ATYPE
  248.     type "          " 66 13 31
  249.     GOTO CONTACTA
  250.   ENDIF
  251. END
  252.  
  253. HANDLER
  254.   Comment Legal
  255.     1 YES
  256.     2 NO
  257.     9 UNKNOWN
  258.   END
  259.   IF HANDLER = "1"
  260.   THEN
  261.     TYPE "Y" +2 +0 31
  262.   ELSE
  263.     IF HANDLER = "2"
  264.     THEN
  265.       TYPE "N" +2 +0 31
  266.     ELSE
  267.       IF HANDLER = "9"
  268.       THEN
  269.         TYPE "U" +2 +0 31
  270.       ENDIF
  271.     ENDIF
  272.   ENDIF
  273. END
  274.  
  275. RAWFISH
  276.   Comment Legal
  277.     1 YES
  278.     2 NO
  279.     9 UNKNOWN
  280.   END
  281.   IF RAWFISH = "1"
  282.   THEN
  283.     TYPE "Y" +2 +0 31
  284.   ELSE
  285.     IF RAWFISH = "2"
  286.     THEN
  287.       TYPE "N" +2 +0 31
  288.     ELSE
  289.       IF RAWFISH = "9"
  290.       THEN
  291.         TYPE "U" +2 +0 31
  292.       ENDIF
  293.     ENDIF
  294.   ENDIF
  295.  
  296. END
  297.  
  298. OUTBREAK
  299.   Comment Legal
  300.     1 YES
  301.     2 NO
  302.     9 UNKNOWN
  303.   END
  304.   IF OUTBREAK = "1"
  305.   THEN
  306.     TYPE "Y" +2 +0 31
  307.   ELSE
  308.     IF OUTBREAK = "2"
  309.     THEN
  310.       TYPE "N" +2 +0 31
  311.     ELSE
  312.       IF OUTBREAK = "9"
  313.       THEN
  314.         TYPE "U" +2 +0 31
  315.       ENDIF
  316.     ENDIF
  317.   ENDIF
  318. END
  319.  
  320. TRAVEL
  321.   Comment Legal
  322.     1 YES
  323.     2 NO
  324.     9 UNKNOWN
  325.   END
  326.   Jumps
  327.     1 WHERE
  328.     2 CONTACTB
  329.     9 CONTACTB
  330.   END
  331.   IF TRAVEL = "1"
  332.   THEN
  333.     TYPE "Y" +2 +0 31
  334.   ELSE
  335.     IF TRAVEL = "2"
  336.     THEN
  337.       TYPE "N" +2 +0 31
  338.     ELSE
  339.       IF TRAVEL = "9"
  340.       THEN
  341.         TYPE "U" +2 +0 31
  342.       ENDIF
  343.     ENDIF
  344.   ENDIF
  345. END
  346.  
  347. WHERE
  348.   Comment Legal
  349.     1 "SO/CENTRAL AMERICA/M"
  350.     2 AFRICA
  351.     3 CARIBBEAN
  352.     4 "MIDDLE EAST"
  353.     5 "ASIA/SO. PACIFIC"
  354.     6 "AUSTRALIA/NEW ZEALAN"
  355.     7 OTHER
  356.     9 UNKNOWN
  357.   END
  358. END
  359.  
  360. DURATION
  361.   Comment Legal
  362.     1 "1-3 DAYS"
  363.     2 "4-7 DAYS"
  364.     3 "MORE THAN 7 DAYS"
  365.     9 UNKNOWN
  366.   END
  367. END
  368.  
  369. CONTACTB
  370.   Comment Legal
  371.     1 YES
  372.     2 NO
  373.     9 UNKNOWN
  374.   END
  375.   Jumps
  376.     1 BTYPE
  377.     2 MEDEMP
  378.     9 MEDEMP
  379.   END
  380.   IF CONTACTB = "1"
  381.   THEN
  382.     TYPE "Y" +2 +0 31
  383.   ELSE
  384.     IF CONTACTB = "2"
  385.     THEN
  386.       TYPE "N" +2 +0 31
  387.     ELSE
  388.       IF CONTACTB = "9"
  389.       THEN
  390.         TYPE "U" +2 +0 31
  391.       ENDIF
  392.     ENDIF
  393.   ENDIF
  394. END
  395.  
  396. BTYPE
  397.   Comment Legal
  398.     1 SEXUAL
  399.     2 HOUSEHOLD
  400.     3 OTHER
  401.     9 UNKNOWN
  402.   END
  403. END
  404.  
  405. MEDEMP
  406.   Comment Legal
  407.     1 YES
  408.     2 NO
  409.     9 UNKNOWN
  410.   END
  411.   IF MEDEMP = "1"
  412.   THEN
  413.     TYPE "Y" +2 +0 31
  414.   ELSE
  415.     IF MEDEMP = "2"
  416.     THEN
  417.       TYPE "N" +2 +0 31
  418.     ELSE
  419.       IF MEDEMP = "9"
  420.       THEN
  421.         TYPE "U" +2 +0 31
  422.       ENDIF
  423.     ENDIF
  424.   ENDIF
  425. END
  426.  
  427. BLOOD
  428.   Comment Legal
  429.     1 FREQUENT
  430.     2 INFREQUENT
  431.     9 UNKNOWN
  432.   END
  433. END
  434.  
  435. TRANSF
  436.   Comment Legal
  437.     1 YES
  438.     2 NO
  439.     9 UNKNOWN
  440.   END
  441.   Jumps
  442.     1 TRANSFROM
  443.     2 DIALYSIS
  444.     9 DIALYSIS
  445.   END
  446.   IF TRANSF = "1"
  447.   THEN
  448.     TYPE "Y" +2 +0 31
  449.   ELSE
  450.     IF TRANSF = "2"
  451.     THEN
  452.       TYPE "N" +2 +0 31
  453.     ELSE
  454.       IF TRANSF = "9"
  455.       THEN
  456.         TYPE "U" +2 +0 31
  457.       ENDIF
  458.     ENDIF
  459.   ENDIF
  460. END
  461.  
  462. DIALYSIS
  463.   Comment Legal
  464.     1 YES
  465.     2 NO
  466.     9 UNKNOWN
  467.   END
  468.   Jumps
  469.     1 DIALTYPE
  470.     2 DRUGS
  471.     9 DRUGS
  472.   END
  473.   IF DIALYSIS = "1"
  474.   THEN
  475.     TYPE "Y" +2 +0 31
  476.   ELSE
  477.     IF DIALYSIS = "2"
  478.     THEN
  479.       TYPE "N" +2 +0 31
  480.     ELSE
  481.       IF DIALYSIS = "9"
  482.       THEN
  483.         TYPE "U" +2 +0 31
  484.       ENDIF
  485.     ENDIF
  486.   ENDIF
  487. END
  488.  
  489. DIALTYPE
  490.   Comment Legal
  491.     1 PATIENT
  492.     2 EMPLOYEE
  493.     3 "CONTACT OF 1 or 2"
  494.   END
  495. END
  496.  
  497. DRUGS
  498.   Comment Legal
  499.     1 YES
  500.     2 NO
  501.     9 UNKNOWN
  502.   END
  503.   IF DRUGS = "1"
  504.   THEN
  505.     TYPE "Y" +2 +0 31
  506.   ELSE
  507.     IF DRUGS = "2"
  508.     THEN
  509.       TYPE "N" +2 +0 31
  510.     ELSE
  511.       IF DRUGS = "9"
  512.       THEN
  513.         TYPE "U" +2 +0 31
  514.       ENDIF
  515.     ENDIF
  516.   ENDIF
  517. END
  518.  
  519. SEXPREF
  520.   Comment Legal
  521.     1 HETERO
  522.     2 HOMO
  523.     3 BISEXUAL
  524.     9 UNKNOWN
  525.   END
  526. END
  527.  
  528. NUMPART
  529.   Comment Legal
  530.     1 NONE
  531.     2 ONE
  532.     3 "TWO - FIVE"
  533.     4 "MORE THAN FIVE"
  534.     9 UNKNOWN
  535.   END
  536. END
  537.  
  538. DENTAL
  539.   Comment Legal
  540.     1 YES
  541.     2 NO
  542.     9 UNKNOWN
  543.   END
  544.   IF DENTAL = "1"
  545.   THEN
  546.     TYPE "Y" +2 +0 31
  547.   ELSE
  548.     IF DENTAL = "2"
  549.     THEN
  550.       TYPE "N" +2 +0 31
  551.     ELSE
  552.       IF DENTAL = "9"
  553.       THEN
  554.         TYPE "U" +2 +0 31
  555.       ENDIF
  556.     ENDIF
  557.   ENDIF
  558. END
  559.  
  560. SURGERY
  561.   Comment Legal
  562.     1 YES
  563.     2 NO
  564.     9 UNKNOWN
  565.   END
  566.   IF SURGERY = "1"
  567.   THEN
  568.     TYPE "Y" +2 +0 31
  569.   ELSE
  570.     IF SURGERY = "2"
  571.     THEN
  572.       TYPE "N" +2 +0 31
  573.     ELSE
  574.       IF SURGERY = "9"
  575.       THEN
  576.         TYPE "U" +2 +0 31
  577.       ENDIF
  578.     ENDIF
  579.   ENDIF
  580. END
  581.  
  582. ACUPUNCT
  583.   Comment Legal
  584.     1 YES
  585.     2 NO
  586.     9 UNKNOWN
  587.   END
  588.   IF ACUPUNCT = "1"
  589.   THEN
  590.     TYPE "Y" +2 +0 31
  591.   ELSE
  592.     IF ACUPUNCT = "2"
  593.     THEN
  594.       TYPE "N" +2 +0 31
  595.     ELSE
  596.       IF ACUPUNCT = "9"
  597.       THEN
  598.         TYPE "U" +2 +0 31
  599.       ENDIF
  600.     ENDIF
  601.   ENDIF
  602. END
  603.  
  604. TATTOO
  605.   Comment Legal
  606.     1 YES
  607.     2 NO
  608.     9 UNKNOWN
  609.   END
  610.   IF TATTOO = "1"
  611.   THEN
  612.     TYPE "Y" +2 +0 31
  613.   ELSE
  614.     IF TATTOO = "2"
  615.     THEN
  616.       TYPE "N" +2 +0 31
  617.     ELSE
  618.       IF TATTOO = "9"
  619.       THEN
  620.         TYPE "U" +2 +0 31
  621.       ENDIF
  622.     ENDIF
  623.   ENDIF
  624. END
  625.  
  626. STICK
  627.   Comment Legal
  628.     1 YES
  629.     2 NO
  630.     9 UNKNOWN
  631.   END
  632.   IF STICK = "1"
  633.   THEN
  634.     TYPE "Y" +2 +0 31
  635.   ELSE
  636.     IF STICK = "2"
  637.     THEN
  638.       TYPE "N" +2 +0 31
  639.     ELSE
  640.       IF STICK = "9"
  641.       THEN
  642.         TYPE "U" +2 +0 31
  643.       ENDIF
  644.     ENDIF
  645.   ENDIF
  646. END
  647.  
  648. BVACCINE
  649.   Comment Legal
  650.     1 YES
  651.     2 NO
  652.     9 UNKNOWN
  653.   END
  654.   Jumps
  655.     1 VACCINEYEA
  656.   END
  657.   IF BVACCINE = "1"
  658.   THEN
  659.     TYPE "Y" +2 +0 31
  660.   ELSE
  661.     IF BVACCINE = "2"
  662.     THEN
  663.       TYPE "N" +2 +0 31
  664.     ELSE
  665.       IF BVACCINE = "9"
  666.       THEN
  667.         TYPE "U" +2 +0 31
  668.       ENDIF
  669.     ENDIF
  670.   ENDIF
  671.   IF BVACCINE = 2 OR BVACCINE = 9
  672.   THEN
  673.   GOTO WRITEREC
  674.   ENDIF
  675. END
  676.  
  677. ANTIBODY
  678.   Comment Legal
  679.     1 YES
  680.     2 NO
  681.     9 UNKNOWN
  682.   END
  683.   IF ANTIBODY = "1"
  684.   THEN
  685.     TYPE "Y" +2 +0 31
  686.   ELSE
  687.     IF ANTIBODY = "2"
  688.     THEN
  689.       TYPE "N" +2 +0 31
  690.     ELSE
  691.       IF ANTIBODY = "9"
  692.       THEN
  693.         TYPE "U" +2 +0 31
  694.       ENDIF
  695.     ENDIF
  696.   ENDIF
  697. END
  698.  
  699. RESULT
  700.   Comment Legal
  701.     1 POSITIVE
  702.     2 NEGATIVE
  703.     9 UNKNOWN
  704.   END
  705.   IF RESULT = "1"
  706.   THEN
  707.     TYPE "P" +2 +0 31
  708.   ELSE
  709.     IF RESULT = "2"
  710.     THEN
  711.       TYPE "N" +2 +0 31
  712.     ELSE
  713.       IF RESULT = "9"
  714.       THEN
  715.         TYPE "U" +2 +0 31
  716.       ENDIF
  717.     ENDIF
  718.   ENDIF
  719.  
  720. END
  721.  
  722.